home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 July / 07_02.iso / software / xq-xsetup / files / setup.exe / {app} / plugins / XQ Plus Folder Icons 1.xpl < prev    next >
Text File  |  2001-11-27  |  2KB  |  65 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="5"
  3. "COUNT"="2"
  4. "UIPATH 1"="Appearance\Files&Folders\Folders"
  5. "UIPATH 2"="Appearance\System\Microsoft Plus!"
  6. "NAME"="3D Folder Icons"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Enable Microsoft Plus 3D Folder Icons"
  9. "TEXT 2"="Restore original Folder icons"
  10. "DESCRIPTION 1"="OPTION #1: This lets you enable the special 3D icons that come as part of Microsoft Plus. This will work with Windows 95 (when Microsoft Plus is installed), and should work with all versions of Windows NT, 98, 2000 and Me."
  11. "DESCRIPTION 2"="OPTION #2: This resets all changes and restores the icons to the Windows defaults. Note that if you have customized icons beforehand, you will loose some of your changes."
  12. "DESCRIPTION 3"="Note that you will need to rebuild the icon cache for these settings to take effect."
  13. "VERSION"="1.35"
  14. "AUTHOR"="Xteq Systems (Neil R. Turner)"
  15. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  16. "CONTACTURL"="http://www.xteq.com/"
  17.  
  18. BASE="HKLM\Software\Microsoft\Windows\CurrentVersion\explorer\Shell Icons"
  19.  
  20. SUB Plugin_Initialize
  21.  w=GetWinSysDir
  22.  b=FileExists(w + "cool.dll")
  23.  If b=false then
  24.   Call Disable
  25.  end if 
  26. END SUB
  27.  
  28. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  29.  ' Get user's Windows Folder
  30.  W=GetWinSysDir
  31.  
  32.  ' Which button has been clicked?
  33.   i=ElementIndex
  34.   Select Case I
  35.  
  36.  ' Find out if 'Plus!' button has been selected
  37.    Case 1
  38.  ' Change each item to relevent index in cool.dll
  39.  ' Normal Folder
  40.   Call RegWriteValue(BASE & "\3", W & "COOL.DLL,11",1)
  41.  ' Open Folder
  42.    Call RegWriteValue(BASE & "\4", W & "COOL.DLL,18",1)
  43.  ' Start Menu
  44.   Call RegWriteValue(BASE & "\36", W & "COOL.DLL,24",1)
  45.  
  46.  Case 2
  47.  ' Delete all values!
  48.  p=RegReadValue(BASE & "\3")
  49.  if IsEmpty(p)=false then
  50.   Call RegDeleteValue(BASE & "\3")
  51.  end if
  52.  p=RegReadValue(BASE & "\4")
  53.  if IsEmpty(p)=false then
  54.   Call RegDeleteValue(BASE & "\4")
  55.  end if
  56.  p=RegReadValue(BASE & "\36")
  57.  if IsEmpty(p)=false then
  58.   Call RegDeleteValue(BASE & "\36")
  59.  end if
  60.  end select
  61. END SUB
  62.  
  63. SUB Plugin_Terminate
  64. END SUB
  65.